home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 83 / 64er_Magazin_Sonderheft_83_19xx_Markt__Technik_de_Side_B.d64 / new header (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  611b  |  31 lines
  1. 1050 :
  2. 1060 print chr$(142)
  3. 1070 print "bitte diskette einlegen und taste
  4. 1080 [153] "druecken !
  5. 1090 get a$:wait 203,63
  6. 1110 open 15,8,15:open 3,8,3,"#"
  7. 1140 print#15,"u1 3 0 18 0"
  8. 1160 print#15,"b-p 3 144"
  9. 1190 for i=0 to 15
  10. 1200 get#3,a$
  11. 1210 n$=n$+a$
  12. 1220 next i
  13. 1250 get#3,b$,c$,i1$,i2$,i3$,i4$,i5$
  14. 1260 id$=i1$+i2$+i3$+i4$+i5$
  15. 1280 print"alter diskname:  "n$
  16. 1290 poke19,64:input"neuer diskname: ";n$:poke19,0:print
  17. 1300 if len(n$)=16 then 1370
  18. 1330 for i=len(n$)+1 to 16
  19. 1340 n$=n$+chr$(160)
  20. 1350 next i
  21. 1370 print"alte id-kennung: "id$
  22. 1380 poke19,64:input"neue id-kennung: ";id$:poke19,0:print
  23. 1390 if len(id$) >5 then 1380
  24. 1400 a$=n$+b$+c$+id$
  25. 1430 print#15,"b-p 3 144"
  26. 1460 print#3,a$;
  27. 1490 print#15,"u2 3 0 18 0"
  28. 1500 close 3
  29. 1530 print#15,"i"
  30. 1540 close 15
  31.